JOBDAT page# 0001 next
2: COMMENT ⊗   VALID 00004 PAGES
3: C REC  PAGE   DESCRIPTION
4: C00001 00001
5: C00002 00002    BEGIN JOBDAT - JOB DATA AREA
6: C00003 00003    M JOBAC,0,20            PLACE WHERE USER ACS ARE STORED ON UUO CALLS
7: C00007 00004    M JOBRL2,115,1
8: C00011 ENDMK
9: C⊗;
    JOBDAT page# 0002 next  prev
11: ;;BEGIN JOBDAT - JOB DATA AREA
12: SUBTTL JOBDAT   31 AUG 67
13: 
14: ;THIS AREA PROVIDES STORAGE OF ITEMS OF INTEREST TO BOTH
15: ;THE MONITOR AND THE USER
16: 
17: ;MACRO TO DEFINE SYMBOLS FOR MONITOR USE ONLY
18: ;THESE MAY BE CHANGED TO SUIT MONITOR
19: 
20: DEFINE M'(SYMBOL,VALUE,LENGTH)
21: <SYMBOL←←VALUE
22: LOC←←VALUE+LENGTH>
23: 
24: ;MACRO TO DEFINE SYMBOLS FOR USER USE
25: ;THESE CANNOT BE CHANGED WITHOUT INVALIDATING OLD SAVED FILES
26: 
27: DEFINE U'(SYMBOL,VALUE,LENGTH)
28: <SYMBOL←←VALUE
29: LOC←←VALUE+LENGTH>
30: 
31: ;MACRO TO DEFINE PARAMETERS OF INTEREST TO MONITOR ONLY
32: ;THESE MAY BE CHANGED TO SUIT MONITOR
33: ;MUST ASSEMBLE WITH SYSPAR TAPE FIRST
    JOBDAT page# 0003 next  prev
35: M JOBAC,0,20            ;PLACE WHERE USER ACS ARE STORED ON UUO CALLS
36:                         ;IE RELATIVE 0-17 IN USER AREA
37: M JOBDAC,LOC,17         ;PLACE WHERE HARDWARE ACS(0-16) ARE STORED
38:                         ;WHEN JOB IS INACTIVE. THESE ARE EITHER THE
39:                         ;USERS AC IF JOB WAS STOPPED IN USER MODE
40:                         ;OR ARE THE EXEC IF STOPED IN EXEC MODE
41:                         ;0-16 ALSO STORED HERE ON CLK INTERRUPTS
42: XP JOBDPG,JOBDAC+PROG   ;AC PROG DUMPED HERE
43: XP JOBD15,JOBDAC+15     ;AC 15 DUMPED HERE
44: XP JOBD16,JOBDAC+16     ;AC 16 DUMPED HERE
45: XP JOBD17,JOBDAC+17     ;AC 17 DUMPED HERE
46: U JOBUUO,40,1           ;USER UUO TRAP LOC.(UUO STORED HERE)
47: U JOB41,41,1            ;USER UUO JSR LOCATION
48: ;42 UNUSED (PLEASE SEE JBR OR BH BEFORE SNARFING)
49: M JOBENB,43,1           ;LH=PC CHNG,AR OVF ENABLE/DISABLE APR BITS
50:                         ;RH=APR CONSO FLAGS FOR USER APR TRAPPING
51:                         ;SET BY CALL [SIXBIT /APRENB/]
52: U JOBREL,44,1           ;LH=0,RH=HIGHEST REL. ADR. IN USER AREA
53: M JOBTM1,LOC,1          ; SOME TEMP CELLS TOO
54: M JOBTM2,LOC,1
55: M JOBTM3,LOC,1
56: M JOBTM4,LOC,1
57: M JOBTM5,LOC,1
58: M JOBPDL,LOC,1          ; PUSHDOWN LIST FOR GETPDL AND GIVPDL TO USE
59: LOC←←71
60: XP JOBPLN,LOC-JOBPDL
61: U JOBINT,LOC,1          ;TO SEPARATE OLD AND NEW INTERRUPT SYSTEMS
62: XP JOBPRT,LOC           ;FIRST LOC PROTECTED BY BEING COPIED INTO MONITOR
63: XP JOBPR1,JOBPRT+1      ;FIRST LOC+1
64: M JOBHCU,LOC,1          ;HIGHEST USER IO CHANNEL IN USE
65:                         ;ONLY JOBJDA...JOBJDA+C(JOBHCU) ARE COPIED INTO
66:                         ;MONITOR WHEN JOB IS RUN. 0 MEANS NONE OR
67:                         ;CHAN. 0 IN USE, -1 MEANS SAVEGET HAS ACTIVE IO
68: 
69: M JOBPC,LOC,1           ;JOB PC WHEN JOB INACTIVE
70: U JOBDDT,74,1           ;LH UNUSED,RH=STARTING ADDRESS OF USER DDT
71: XP JOBSAV,JOBDDT-1      ;FIRST LOC.-1 WRITTEN BY SAVE COMMAND
72: M JOBJDA,LOC,20         ;JOB DEVICE ASSIGNMENT TABLE
73:                         ;LH=UUOS DONE SO FAR,RH=ADR. OF DEVICE DATA BLOCK IN MONITOR
74: XP JOBJMH,JOBHCU-JOBJDA ;JOBHCU-JOBJDA
75:                         ;USED BY ANYACT ROUT. IN CORE1
76: XP JOBPFI,JOBJDA+17     ;HIGHEST LOC. IN JOB DATA AREA PROTECTED FROM IO
77: XP MJOBCK,JOBPFI-JOBDAC ;AREA CHECKSUMMED DURING SWAPPING
78: 
79: JOBPRT←←JOBPRT         ;MAKE DOWNWARDS AVAILABLE
80: JOBPFI←←JOBPFI         ;MAKE DOWNWARDS AVAILABLE
    JOBDAT page# 0004 next  prev
82: M JOBRL2,115,1
83: U JOBSYM,116,1  ;POINTER TO LOADER AND DDT SYMBOL TABLE POINTER
84: U JOBUSY,117,1  ;POINTER TO UNDEFINED SYMBOL TABLE
85:                 ;SET BY LOADER, NOT YET USED BY DDT
86: U JOBSA,120,1   ;LH=FIRST LOC NOT LOADED BY RELOCATING LOADER
87:                 ;RH=STARTING ADDRESS OF USER PROGRAM
88: U JOBFF,121,1   ;FIRST FREE LOCATION IN USER AREA
89:                 ;USED BY MONITOR TO ASSIGN I/O BUFFERS IN TOP
90:                 ;OF USER AREA
91: U JOBS41,122,1  ;C(JOB41) SAVED HERE ON SAVE COMMAND
92:                 ;RESTORE FROM HERE ON GET
93: M JOBEXM,LOC,1  ;LAST LOC EXAMINED OR DEPOSITED USING 
94:                 ;D OR E COMMANDS
95: U JOBREN,124,1  ;REENTER ADDRESS FOR REENTER COMMAND
96: U JOBAPR,125,1       ;PLACE TO TRAP TO IN USER AREA ON APR TRAP
97:                 ;ENABLED BY APRENB UUO
98: U JOBCNI,126,1  ;APR IS CONIED INTO C(JOBCNI) ON APR TRAP
99: U JOBTPC,127,1  ;PC IS STORED HERE ON USER APR TRAP
100: U JOBOPC,130,1  ;OLD PC IS STORED HERE ON START,DDT,REENTER,
101:                 ;STARTC COMMANDS
102: U JOBCHN,131,1  ;LH=FIRST LOC AFTER FIRST FORTRAN 4 LOADED PROGRAM
103:                 ;RH=FIRST LOC AFTER FIRST FORTRAN 4 BLOCK DATA
104:                 ;TO BE USED FOR JOB CHAINING
105: M JOBFDV,LOC,1  ;DEV. DATA BLOCK ADR. FOR FINISH COMMAND
106: U JOBCOR,133,1  ;SIZE OF CORE FOR JOB ON RUN,SAVE,GET COM.
107: M HINAME,134,1  ;NAME OF UPPER SEGMENT OVER SAVE-GET
108: M HILOC,135,1     ;LOC OF UPPER SEGMENT IN DUMP FILE OVER SAVE-GET
109: ;134-137 USED BY LOADER FOR BLT TO MOVE PROGRAM DOWN(CAN BE REMOVED)
110: XP JOBDA,140    ;FIRST LOC NOT USED BY JOB DATA AREA
111: 
112: ;;;     BEND
 EOF: JOBDAT end-of-file. cnt=3